***********************************************************************
*
*       Programa que preenche o campo pr_npreuni := pr_npreven
*       do dbf prod
*       Autor: Eng: Luis Lin
*       Date : 28.02.07
*
*
***********************************************************************
*request dbfcdx
*RddSetDefault('dbfcdx')
local ntab := 1
close databases
use prod new alias PR
sele PR
go top

do while ! eof()
  if ( "Olhinho" $ PR->pr_cnompro)
    if  PR->pr_npreuni <> PR->pr_npreven
        PR->pr_npreuni := PR->pr_npreven
    endif
  endif
  skip
enddo
close databases
return .t.



